home *** CD-ROM | disk | FTP | other *** search
/ Commodore Disc 1 / Commodore_Disc_01_19xx_-_de.d64 / vokabelpauker 64 (.txt) < prev   
Commodore BASIC  |  2022-10-26  |  4KB  |  133 lines
  1. 10 rem vokabelpauker ============64
  2. 20 rem (p) by commodore welt team =
  3. 30 rem ============================
  4. 40 rem (c) by daniel ruegemer     =
  5. 50 rem                            =
  6. 60 rem                            =
  7. 70 rem version 2.15  40z/ascii    =
  8. 80 rem c-64 + 1530/1541           =
  9. 90 rem ============================
  10. 100 cl$=chr$(147):c4$=chr$(017)
  11. 110 d2$=c4$+c4$:d3$=d2$+c4$
  12. 120 d4$=d3$+c4$:z1$=chr$(045)
  13. 130 c3$=chr$(029):rn$=chr$(018)
  14. 140 w2$=c3$+c3$:w3$=w2$+c3$
  15. 150 w4$=w3$+c3$:w5$=w4$+c3$
  16. 160 rf$=chr$(146):xe$=chr$(046)
  17. 170 s1$=chr$(032):hk$=chr$(039)
  18. 180 a2$=s1$+s1$:a3$=a2$+s1$
  19. 190 rt$=chr$(013):xf$=chr$(047)
  20. 200 forq=1to39:q1$=q1$+z1$:nextq
  21. 210 printcl$c4$xe$:p=peek(32808):printcl$;
  22. 220 printchr$(014):dima$(999)
  23. 230 f=0:printcl$q1$
  24. 240 print"  "rn$"[205]enuwahl [214]okabelpauker"
  25. 250 printq1$
  26. 260 printc4$w2$"1."s1$rn$"[197]ingabe "rf$s1$"[214]okabeln eingeben"
  27. 270 printc4$w2$"2."s1$rn$"[193]bhoeren"rf$" [214]okabeln abhoeren"
  28. 280 printc4$w2$"3."s1$rn$"save    "rf$" [204]ektion auf [194]and/[196]isk"
  29. 290 printc4$w2$"4."s1$rn$"load    "rf$" [214]okabeln vom [194]and/[196]isk"
  30. 300 printc4$w2$"5."s1$rn$"print   "rf$" [193]nlegen einer [204]iste"
  31. 310 printtab(14)"aller [214]okabeln auf"
  32. 320 printtab(14)"[196]rucker oder [205]onitor"
  33. 330 printc4$w2$;:input"[215]elche [206]r. waehlen [211]ie ";a
  34. 340 onagoto350,500,740,820,1000
  35. 350 i=0
  36. 360 rem ***************** eingabe *
  37. 370 printd2$w5$rn$"[197]ingabe"
  38. 380 printc4$w3$;:input"neue [204]ektion (j/n)";xx$:ifxx$="j"then440
  39. 390 printc4$w3$;:input"ab welchem [215]ort ([198]remdspr.) ";xx$
  40. 400 i=0
  41. 410 i=i+1:ifa$(i)=xx$theni=i+1:goto440
  42. 420 ifa$(i)<>""then410
  43. 430 printc4$"das [215]ort ' "xx$" ' gibt es gar nicht!":goto370
  44. 440 printc4$w3$"[215]enn [211]ie fertig sind , geben [211]ie
  45. 450 [153]c4$w3$"'menu' ein .
  46. 460 printc4$;:input"[215]ort";a$(i)
  47. 470 ifa$(i)="menu"thengoto230
  48. 480 i=i+1:printc4$;:input"[215]ort ([198]remdspr.)";a$(i)
  49. 490 i=i+1:goto460
  50. 500 i=0:rem ************ abhoeren *
  51. 510 printc4$w2$;:input"ganz von vorn (j/n) ";xx$:ifxx$="j"theni=0:goto580
  52. 520 printc4$w2$;:input"ab welchem [215]ort ([198]remdspr.) ";xx$
  53. 530 i=0
  54. 540 i=i+1:ifa$(i)=xx$theni=i+1:goto 570
  55. 550 ifa$(i)<>""then540
  56. 560 printc4$w2$hk$xx$hk$"gibt es gar nicht !":goto510
  57. 570 i=i-2
  58. 580 printcl$c4$"1. [196]eutsch      ---> [198]remdsprache"
  59. 590 printc4$"2. [198]remdsprache ---> [196]eutsch"
  60. 600 printc4$;:input"[215]elche [206]ummer waehlen [211]ie ";x
  61. 610 y=1:ifx=2theni=i+1:y=-1
  62. 620 printcl$d4$w4$rn$"[193]bhoeren
  63. 630 [153]c4$"(NULL)as heisst "a$(i);:[133]a$
  64. 640 [139]a$[178]a$(i[170]y)[167][153]c4$"(NULL)ichtig !"
  65. 650 [139]a$[179][177]a$(i[170]y)[167][153]c4$"ascalsch !!!":f[178]f[170]1
  66. 660 [153]c4$"das war der "f".ascehler!"
  67. 670 [139]a$[179][177]a$(i[170]y)[167][137]1180
  68. 680 i[178]i[170]2:[139]a$(i)[178]""[176]a$(i)[178]"menu"[167]700
  69. 690 [137]630
  70. 700 [153]c4$"str$as war der (NULL)est."
  71. 710 [153]c4$"(NULL)ie haben "f" ascehler gemacht."
  72. 720 [129]i[178]1[164]3000:[130]:[137]230
  73. 730 [143] ******************** save *
  74. 740 [153]c4$;:[133]" (NULL)as war das fuer eine (NULL)ektion";z$
  75. 750 [153]c4$c3$;:[133]"lenassette oder str$isk";cd$:[139]cd$[179][177]"c"[175]cd$[179][177]"d"[167]750
  76. 760 a[178]0:[139]cd$[178]"c"[167][159]1,1,2,z$
  77. 770 [139]cd$[178]"d"[167][159]1,8,2,"@0:"[170]z$[170]",s,w"
  78. 780 [152]1,a$(a);rt$;:[153]a$(a):[139]a$(a)[179][177]"menu"[167]a[178]a[170]1:[137]780
  79. 790 [160]1
  80. 800 [137]230
  81. 810 [143] ******************* load *
  82. 820 [153]c4$;:[133]"(NULL)elche (NULL)ektion ";z$
  83. 830 i[178]0:[153]c4$c3$;:[133]"lenassette oder str$isk";cd$
  84. 840 [139]cd$[179][177]"d"[175]cd$[179][177]"c"[167]830
  85. 850 [139]a$(0)[178]""[175]a$(1)[178]""[167]920
  86. 860 [153]c4$c3$"(NULL)oll ich "z$" an die alte (NULL)ektion
  87. 870 printc4$c3$;:input"dranhaengen (j/n)";an$:ifan$<>"j"andan$<>"n"then870
  88. 880 ifan$="n"then920
  89. 890 fori=0to999:ifa$(i)="menu"ora$(i)=""then910
  90. 900 next
  91. 910 rem ****************** floppy *
  92. 920 ifcd$="d"thenopen1,8,2,"0:"+z$+",s,r":goto950
  93. 930 printc4$w2$"ich suche .."
  94. 940 open1,1,0,z$
  95. 950 printc4$"ich hab's"
  96. 960 printd2$w2$"bitte noch etwas [199]eduld !
  97. 970 [132]1,a$(i):[153]a$(i):[139]a$(i)[179][177]"menu"[167]i[178]i[170]1:[137]970
  98. 980 [160]1:[137]230
  99. 990 [143] ****************** print *
  100. 1000 [153]c4$w3$;:[133]"atnuf str$rucker oder peekildschirm (b/d)";xx$
  101. 1010 [139]xx$[179][177]"d"[175]xx$[179][177]"b"[167]1000
  102. 1020 [139]xx$[178]"b"[167]1130
  103. 1030 [153]cl$d3$w5$c3$"peekitte str$rucker einschalten.
  104. 1040 printc4$c3$;:input"[212]ab";tb
  105. 1050 printc4$w3$;:input"[215]elche [204]ektion war das";xx$
  106. 1060 xx=xx+1:ifa$(xx)<>""then1060
  107. 1070 open1,4
  108. 1080 print#1,tab(tb+3)c4$xx$
  109. 1090 fori=0to2:print#1,c4$:next
  110. 1100 fori=0toxx-3step2
  111. 1110 print#1,tab(tb)c4$a2$a$(i)s1$xf$s1$a$(i+1):next
  112. 1120 close1:goto230
  113. 1130 i=0
  114. 1140 forx=0to30:next:printchr$(147)
  115. 1150 printa$(i)s1$xf$s1$a$(i+1):forw=1to200:nextw
  116. 1151 i=i+2:ifa$(i)<>""anda$(i)<>"menu"then1150
  117. 1160 goto230
  118. 1170 rem *** verbesserung mit rn$ *
  119. 1180 b$=a$(i+y):forx=1tolen(b$)
  120. 1190 ifmid$(b$,x,1)<>mid$(a$,x,1)then1220
  121. 1200 c$=c$+mid$(b$,x,1)+rf$:next
  122. 1210 goto1230
  123. 1220 c$=c$+rn$:goto1200
  124. 1230 printc4$w2$"[197]s heisst"xf$c$xf$:c$="":goto680
  125. 1240 rem vokabelpauker ==========64
  126. 1250 rem 38911 bytes memory    ====
  127. 1260 rem 04050 bytes program   ====
  128. 1270 rem 00203 bytes variables ====
  129. 1280 rem 03007 bytes arrays    ====
  130. 1290 rem 00820 bytes strings   ====
  131. 1300 rem 30831 bytes free (1)  ====
  132. 1310 rem ==========================
  133.